100 REM *********************************
110 REM
120 REM  J A H R E S A U S W E R T U N G
130 REM
140 REM   (C)JUERGEN SCHAEFER , 1984
150 REM
160 REM   8000  M U E N C H E N  70
170 REM
180 REM        TEL.089-7601642
190 REM
200 REM ********************************
210 PRINT"[147]"
220 POKE 53281,0:POKE 53280,0:POKE 646,1
225 REM---------------EINGABE ROUTINE----------------
230 N=7:M=3
240 PRINT"ANZAHL DER ANWESENHEITSTAGE IN 1984":PRINT
250 INPUT A
260 IF A>M THEN PRINT"[147]":GOTO240
270 PRINT:PRINT"GEBEN SIE DEN NAMEN DES KEGLERS EIN !":PRINT :INPUT K$
280 PRINT"[147]"
290 PRINT"GEBEN SIE DIE EINZELWERTE DER SPALTEN":PRINT
300 PRINT"IN FOLGENDER REIHENFOLGE EIN :"
310 FOR T=1TO2000
320 NEXT T
330 GOSUB1160
340 DIM U(M+1,N+1)
350 FOR I=1 TOM
360 GOSUB1160
370 READ D$
380 PRINT
390 PRINTD$
400 PRINT"========":PRINT
410 FOR J=1 TO N
430 PRINT J;".SPALTE ";
440 INPUT U(I,J):U$=STR$(U(I,J))
442 IF LEN(U$)>4 THEN 445
444 GOTO450
445 PRINT: PRINT"BITTE NUR ZAHLEN BIS MAX. 999 EINGEBEN !"
446 PRINT"EINGABEWIEDERHOLUNG":PRINT :GOTO440
450 NEXT J
460 NEXT I
470 RESTORE
475 REM---------------HARDCOPY AUSDRUCK--------------
480 PRINT:INPUT"IST DER DRUCKER EINGESCHALTET (J)";P$
490 IF P$<>"J" THEN 480
500 PRINT:PRINT"ES WIRD AUSGEDRUCKT"
520 GOSUB 1350
530 GOSUB 1040
540 OPEN4,4
550 REM---------------TABELLE ERZEUGEN---------------
560 FOR I=1 TO M
570 READ D$
580 PRINT#4,D$;"  ";
590 FOR J=1 TO N
600 X=U(I,J)
610 IF X>99 THEN PRINT#4,X;:GOTO 640
620 IF X <100 AND X>=9  THEN PRINT#4,X;:GOTO650
630 IF X <10 THEN PRINT#4,X;:GOTO660
640 PRINT#4,   "     ";:GOTO 670
650 PRINT#4,   "      ";:GOTO 670
660 PRINT#4,   "       ";:GOTO 670
670 NEXTJ
680 PRINT#4
690 NEXT I
700 PRINT#4,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
710 PRINT#4,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
720 REM---------------SUMME PRO SPALTE BILDEN--------
730 PRINT#4,"SUMME:   ";
740 FOR J=1 TO N
750 S=0
760 FOR I=1 TO M
770 S=S+U(I,J)
780 NEXT I
790 IF J=1 THEN V=INT(S/A+.5)
800 IF J=2 THEN B=INT(S/A+.5)
810 PRINT#4,S;
830 IF S>99 AND S<999 THEN GOTO 890
840 IF S<100 AND S>9 THEN GOTO 920
850 GOTO 950
890 PRINT#4,"     ";
900 NEXT J
910 GOTO 970
920 PRINT#4,"      ";
930 NEXT J
940 GOTO 970
950 PRINT#4,"       ";
960 NEXT J
970 U(M+1,J)=S
980 PRINT#4
990 PRINT#4:PRINT#4,"JAHRES-DURCHSCHNITT BEI 10X IN DIE VOLLEN :";CHR$(14);V;
1000 PRINT#4:PRINT#4,"JAHRES-DURSCHNITT BEIM BILDER-KEGELN      :";CHR$(14);B
1010 CLOSE 4
1020 GOSUB 1620
1030 END
1040 REM--------------TABELLENKOPF-------------------
1050 OPEN4,4
1060 PRINT#4,"KEGEL- ";" ";
1070 PRINT#4,"10 SCHUB ";" ";" SUMME "; "   ";" PUDEL";
1080 PRINT#4,"    ";"STIERE";"     ";"ALLE ";"    ";"KRANZ";"    ";"SCHNAPS"
1090 PRINT#4,"ABEND  ";" ";
1100 PRINT#4,"I.D.VOLL.";" ";" BILDER ";"  ";"(RATTEN)";
1110 PRINT#4,"  ";"    ";"       ";"NEUN ";"    ";"     ";"    ";"RUNDEN:"
1120 PRINT#4,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
1130 PRINT#4,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1140 CLOSE 4
1150 RETURN
1160 REM--------------TON----------------------------
1170 PRINT
1180 POKE 54273,23:POKE 54272,181
1190 POKE 54296,15
1200 POKE 54277,9
1210 POKE 54278,0
1220 POKE 54276,33
1230 FOR T=1 TO  500:NEXT T
1240 POKE 54276,32
1250 POKE 54273,0
1260 PRINT"[147]"
1265 PRINT"SPALTENBELEGUNG:"
1266 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1270 PRINT"1. 10 SCHUB IN DIE VOLLEN"
1280 PRINT"2. SUMME BILDERKEGELN "
1290 PRINT"3. PUDEL (RATTEN)"
1300 PRINT"4. STIERE(STRASSE)"
1310 PRINT"5. ALLE NEUN"
1320 PRINT"6. KRANZ"
1330 PRINT"7. SCHNAPSRUNDEN":PRINT:PRINT
1340 RETURN
1350 REM--------------FORMULARKOPF-------------------
1360 OPEN4,4
1370 PRINT#4,"****************************************";
1380 PRINT#4,"****************************************" :PRINT#4:PRINT#4
1390 PRINT#4,CHR$(16)" 2";CHR$(14) CHR$(14)"JAHRESAUSWERTUNG FUER 1984  ";
1400 PRINT#4:PRINT#4
1410 PRINT#4,"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
1420 PRINT#4,"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
1430 PRINT#4,"KEGELCLUB ALLE NEUN ";
1440 PRINT#4,CHR$(16)"62";"17.DEZEMBER 1984"
1450 PRINT#4
1460 PRINT#4,"DIE FOLGENDE TABELLE ZEIGT DIE PERSOENLICHEN LEISTUNGEN UNSERES ";
1470 PRINT#4,"KEGELBRUDERS :"
1480 PRINT#4
1490 PRINT#4:PRINT#4,CHR$(16)"25" CHR$(14);K$
1500 PRINT#4
1510 PRINT#4:PRINT#4,"WAEHREND DES ABGELAUFENEN JAHRES 1984."
1520 PRINT#4,"IN DIESEM JAHR HATTEN WIR INSGESAMT 24 KEGELABENDE.";
1530 PRINT#4,"SIE HABEN";A;"MAL TEILGENOMMEN"
1540 PRINT#4,"UND ERREICHTEN DAMIT ";INT(A/24 *100);" %  DER MAX. MOEGLICHEN ";
1550 PRINT#4,"ANWESENHEITSZEIT !"
1560 PRINT#4
1570 PRINT#4,"I H R E  P E R S O E N L I C H E N  E R G E B N I S S E  :"
1580 PRINT#4,"=========================================================="
1590 PRINT#4 :PRINT#4
1600 CLOSE4
1610 RETURN
1620 REM--------------SCHLUSSFORMEL------------------
1630 OPEN4,4
1640 PRINT#4:PRINT#4,"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
1650 PRINT#4,"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
1660 PRINT#4:PRINT#4,"IM NAMEN DER GANZEN KEGELGRUPPE WUENSCHEN DER COMPUTER ";
1670 PRINT#4,"UND DER VORSTAND IHNEN, "
1680 PRINT#4
1690 PRINT#4,"LIEBER HERR ";K$;",";
1700 PRINT#4,CHR$(14)"   GUT HOLZ FUER 1985 !"
1710 PRINT#4
1730 PRINT#4
1740 PRINT#4,"****************************************";
1750 PRINT#4,"****************************************" :PRINT#4:PRINT#4
1760 CLOSE 4
1765 REM--------------DATEN DER KEGELABENDE----------
1770 DATA " 2.JAN.","16.JAN.","30.JAN.","13.FEB.","27.FEB."
1780 DATA "12.MAR.","26.MAR."," 9.APR."," 7.MAI ","21.MAI "
1790 DATA " 4.JUN.","18.JUN."," 2.JUL.","16.JUL.","30.JUL."
1800 DATA "13.AUG.","27.AUG.","10.SEP.","24.SEP."," 8.OKT."
1810 DATA "22.OKT."," 5.NOV.","19.NOV."," 3.DEZ."